home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 158 / 158.d81 / b.nsa show (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  209 lines
  1. 10 poke53280,0:poke53281,0:print"[147]"
  2. 20 poke788,49
  3. 30 poke55,0:poke56,56:clr:a$=""
  4. 40 dv=peek(186):ifdv<8thendv=8
  5. 50 dim r$(11),c(11),e(11),an$(13,15)
  6. 60 gosub60000
  7. 70 def fnd(i)=20-(len(an$(x,i))/2)
  8. 80 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  9. 90 sys57812"package.o",dv,0:poke780,0:poke781,80:poke782,195:sys65493
  10. 100 sys57812"print9000",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  11. 110 sys57812"nsa title.shp",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  12. 120 sys57812"nsa font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  13. 130 poke251,64:poke252,224:poke253,204:sys51456
  14. 140 poke252,224:poke253,204:sys51459
  15. 150 ip=50000:unpack=51456:hgr=51459
  16. 160 ps=50006:ba=50009
  17. 170 open2,dv,2,"nsa text,p,r"
  18. 172 get#2,a$:get#2,a$
  19. 174 input#2,np
  20. 176 fori=1tonp:sysip,2,40:r$(i)=a$:sysip,2,40:c(i)=val(a$):next
  21. 180 j=1:k=0:fori=0to1:sysip,2,40:i=st
  22. 190 ifa$="*"thenj=j+1:k=0:goto210
  23. 200 k=k+1:an$(j,k)=a$
  24. 210 next:close2
  25. 260 syshgr
  26. 270 forx=1tonp
  27. 280 gosub1440
  28. 290 sys57812r$(x),dv,0:poke780,0:poke781,0:poke782,64:sys65493
  29. 300 md=peek(64*256)
  30. 310 gosub1530:ifa$="q"ora$="[209]"thengosub1210
  31. 320 gosub1660
  32. 330 e(x)=peek(53281)
  33. 340 kk=0:poke198,0:ti$="000000"
  34. 350 ifz3=0then380
  35. 360 z4=z4+1:z4=z4and15
  36. 370 poke53281,z4
  37. 380 kk=kk+1:geta$:ifa$=""andti$<"000015"then350
  38. 390 ifa$="q"ora$="[209]"thengosub1210
  39. 400 ifa$="s"ora$="[211]"then 560
  40. 410 ifa$="p"ora$="[208]"then 1710
  41. 420 ifa$<>chr$(133)then450
  42. 430 z1=z1+1:z1=z1and15
  43. 440 poke53280,z1:goto340
  44. 450 ifa$<>chr$(134)then480
  45. 460 z2=z2+1:z2=z2and15
  46. 470 poke53281,z2:goto340
  47. 480 ifa$<>chr$(135)then510
  48. 490 z3=1-z3:ifz3=0thenpoke53281,e(x)
  49. 500 goto340
  50. 510 syshgr:print"[147]":poke198,0:next x
  51. 520 goto270
  52. 530 :
  53. 540 rem save koala pic
  54. 550 :
  55. 560 sys hgr
  56. 570 poke53280,0:poke53281,0
  57. 580 print"[147][154]":poke214,11:print
  58. 590 print"   [211]ave this unpacked picture? (y[154]/n[154])":poke198,0
  59. 600 geta$:ifa$<>"y"anda$<>"n"then600
  60. 610 ifa$="y"then640
  61. 620 goto1090
  62. 640 print"[147][154]":poke214,9:print
  63. 650 print" [201]nsert save disk and enter a filename."
  64. 670 print"       [206]ame : ---------------[145][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][193][146]pic ";
  65. 680 ln%=10:sp$="                "
  66. 690 gosub730:ifnm$=""then1090
  67. 700 nm$=left$(chr$(129)+"pic "+nm$+sp$,15)
  68. 710 goto860
  69. 720 rem --- input routine ---
  70. 730 nm$="":x%=0:c%=peek(646)
  71. 740 print"[152][164][157]";:poke646,c%
  72. 750 geta$:ifa$=""then750
  73. 760 a%=asc(a$)
  74. 770 ifa%=20andx%thenx%=x%-1:nm$=left$(nm$,len(nm$)-1):print" [157][157]";:goto740
  75. 780 ifa%=20then750
  76. 790 ifa%=13thenprint" ":return
  77. 800 ifx%=ln%then750
  78. 810 ifa$<" "ora$>"z"anda$<"[193]"ora$>"[218]"ora%=34then750
  79. 820 nm$=nm$+a$:print""a$;:x%=x%+1:goto740
  80. 860 open15,dv,15,"r0:"+nm$+"="+nm$:input#15,er,er$:close15
  81. 870 ifer<>62thengosub1120:goto1090
  82. 910 gosub1660:nm$=nm$+",p,w"
  83. 920 sysps,nm$:syshgr
  84. 960 open15,dv,15:input#15,er,er$,y$,z$:close15
  85. 970 iferthengosub1120:goto580
  86. 1010 poke53280,0:poke53281,0
  87. 1020 print"[147][154]":poke214,7:print
  88. 1030 print"             [211]aving complete."
  89. 1040 print"   [201]f necessary, put the disk in"
  90. 1050 print"     the drive and press [211][208][193][195][197][154]."
  91. 1060 geta$:ifa$<>" "then1060
  92. 1070 open15,dv,15,"r0:package.o=package.o":input#15,er:close15
  93. 1080 ifer<>63 then 1020
  94. 1090 syshgr:goto510
  95. 1130 poke53280,.:poke53281,.:print"[147]        [129] [196] [201] [211] [203]   [197] [210] [210] [207] [210] !
  96. 1140 [151]214,10:[153]
  97. 1150 a$[178]"print#valrror #"[170][196](er)[170]"print#,"[170]er$
  98. 1160 x%[178]22[171][195](a$)[173]2:[153][163]x%);a$
  99. 1170 [151]214,21:[153]
  100. 1180 [153]"print#        (NULL)ress (NULL)(NULL)atnlenvalprint# to continue."
  101. 1190 [161]a$:[139]a$[179][177]" "[167]1190
  102. 1200 [142]
  103. 1210 o[178][194](53270)[175]16
  104. 1220 [139]o[167][158]51459
  105. 1230 [151]53281,0:[151]53280,0
  106. 1240 [153]"loadcont  atnre you sure you want to quit? (ycont/ncont)"
  107. 1250 [151]198,0:[146]198,1:[161]ag$
  108. 1260 [139]ag$[178]"y"[176]ag$[178]"(NULL)"[167]40000
  109. 1270 [139]o[167][158]51459
  110. 1280 [142]
  111. 1420 [153]"";
  112. 1430 :
  113. 1440 [151]53281,0:[151]53280,0:[151]53272,31
  114. 1450 [153]"loadlistortantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan^";
  115. 1460 [129]i[178]1[164]14
  116. 1470 [153]"(NULL)"[166]38)"(NULL)";:[130]
  117. 1480 [153]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  118. 1490 [129]i[178]217[164]242:[151]i,([194](i)[176]128):[130]
  119. 1500 [153]"print#"
  120. 1510 [129]i[178]1[164]13:[153][163][165]d(i))an$(x,i):[130]
  121. 1520 [142]
  122. 1530 kk[178]0
  123. 1540 [151]214,15:[153]:[153]"list     (NULL)hile the slide is showing..."
  124. 1550 [153]"   asc1 sys- lenhange border color"
  125. 1560 [153]"   asc3 sys- lenhange background color"
  126. 1570 [153]"   asc5 sys- (NULL)oggle (NULL)eyoteasclash (tm)
  127. 1580 print"    [211] [158]- [211]ave picture as [203][207][193][204][193]
  128. 1590 [153]"    (NULL) sys- (NULL)rint picture"
  129. 1600 [153]"    (NULL) sys- (NULL)uit"
  130. 1610 [151]214,23:[153]
  131. 1620 [153]"list(NULL)ress (NULL)list to quit - atnny other to continueon"
  132. 1622 ti$[178]"000000"
  133. 1630 [161]a$:[139]a$[179][177]""[176]ti$[177]"000015"[167][142]
  134. 1640 [137]1630
  135. 1650 :
  136. 1660 [153]"load";:[139]fh[167][151]254,0:[158]ba:[137]1690
  137. 1670 [151]251,64:[151]252,224:[151]253,204
  138. 1680 [158]un
  139. 1690 [151]53280,c(x):[151]252,224:[151]253,204:[158]hgr:[142]
  140. 1700 [142]
  141. 1710 [158]hgr:[151]53280,0:[151]53281,0
  142. 1720 [153]"load   for(NULL)left$val (NULL)right$chr$left$(NULL)(NULL) (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) (NULL)(NULL)right$(NULL)(NULL) (NULL)(NULL)str$(NULL)(NULL)val
  143. 1730 print"[155]    [205]ode      [196]ensity     [215]idth"
  144. 1740 print" 1.[158] 7-pin                 wide"
  145. 1750 print"    (1525)"
  146. 1760 print" 2.[158] 8-pin     [211]ingle      wide"
  147. 1770 print"    ([197]pson)"
  148. 1780 print" 3.[158]   '       [195]rt         normal"
  149. 1790 print" 4.[158]   '       [196]ouble      narrow"
  150. 1800 print" 5.[158]   '       [196]ouble      wide"
  151. 1810 print" 6.[158]   '       [209]uad        narrow"
  152. 1820 print" 7.[158]   '       [209]uad        normal"
  153. 1830 print" 8.[158] [195]ancel"
  154. 1840 print" [154][205]ake sure printer is ready."
  155. 1850 poke198,0
  156. 1860 geta1$:ifa1$<"1"ora1$>"8"then1860
  157. 1870 a1=val(a1$):ifa1=1thentb=80
  158. 1880 ifa1=2then ds=0:bt=1:tb=80
  159. 1890 ifa1=3then ds=4:bt=1:tb=120
  160. 1900 ifa1=4then ds=1:bt=1:tb=160
  161. 1910 ifa1=5then ds=1:bt=2:tb=80
  162. 1920 ifa1=6then ds=3:bt=2:tb=160
  163. 1930 ifa1=7then ds=3:bt=3:tb=120
  164. 1940 ifa1=8then sys hgr:goto510
  165. 1950 forj=2to24:poke781,j:sys59903:next
  166. 1960 poke214,1:print
  167. 1970 print"         [212]ab [208]osition"
  168. 1980 print" 1.[158] [204]eft"
  169. 1990 print" 2.[158]     [195]enter"
  170. 2000 print" 3.[158]         [210]ight"
  171. 2010 ifa1<>4anda1<>6then2040
  172. 2020 print" 4.[158]   [195]enter-left"
  173. 2030 print" 5.[158]       [195]enter-right"
  174. 2040 poke198,0
  175. 2050 geta2$:ifa2$<"1"ora2$>"5"then2050
  176. 2060 a2=val(a2$):ifa2=1then tb=0:goto2120
  177. 2070 ifa2=2then2120
  178. 2080 ifa2=3thentb=tb*2:goto2120
  179. 2090 ifa1<>4anda1<>6then2040
  180. 2100 ifa1=4thentb=53:goto2120
  181. 2110 tb=266
  182. 2120 poke251,64:poke252,224:poke253,204:sys un
  183. 2130 sys hgr
  184. 2140 ifa1=1thensys36864,224,204,tb,md:goto2160
  185. 2150 sys36867,224,204,tb,ds,bt,bt*320,md
  186. 2160 poke186,dv
  187. 2170 goto510
  188. 10000 d=peek(186):n$="b.nsa show":open15,d,15,"s0:"+n$:close15:saven$,d:end
  189. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  190. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  191. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  192. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  193. 40040 close2:open2,i,2:close2:ifstthen40060
  194. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  195. 40060 next:return
  196. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  197. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  198. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  199. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  200. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]